﻿Namespace DotNetNuke.Modules.ActiveForums
    Public Class ForumCollection
        Inherits CollectionBase

        Implements ICollection
        Implements IList

        Private _Item As Forum

        Public Sub CopyTo(ByVal array As System.Array, ByVal index As Integer)
            List.CopyTo(array, index)
        End Sub

        Public ReadOnly Property IsSynchronized() As Boolean
            Get
                Return List.IsSynchronized
            End Get
        End Property

        Public ReadOnly Property SyncRoot() As Object
            Get
                Return List.SyncRoot
            End Get
        End Property


        Public Function Add(ByVal value As Forum) As Integer
            Return List.Add(value)
        End Function


        Public Function Contains(ByVal value As Forum) As Boolean
            Return List.Contains(value)
        End Function

        Public Function IndexOf(ByVal value As Forum) As Integer
            Return List.IndexOf(value)
        End Function

        Public Sub Insert(ByVal index As Integer, ByVal value As Forum)
            List.Insert(index, value)
        End Sub

        Public ReadOnly Property IsFixedSize() As Boolean
            Get
                Return List.IsFixedSize
            End Get
        End Property

        Public ReadOnly Property IsReadOnly() As Boolean
            Get
                Return List.IsReadOnly
            End Get
        End Property

        Default Public Property Item(ByVal index As Integer) As Forum
            Get
                Return _Item
            End Get
            Set(ByVal value As Forum)
                _Item = value
            End Set
        End Property

        Public Sub Remove(ByVal value As Object)
            List.Remove(value)
        End Sub


    End Class
End Namespace

